home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / adasmall / test2.ada < prev    next >
Text File  |  1996-01-30  |  1KB  |  71 lines
  1. WITH SMALL_SP; USE SMALL_SP;
  2.  
  3. PROCEDURE   Test_Pgm2   IS
  4.  
  5.     Ten: CONSTANT INTEGER := 10;     -- Integer
  6.     CCh: CONSTANT   := 'A';          -- Character
  7.  
  8.     mmm: integer := 99;
  9.  
  10. Task T1;
  11. Task T2 is
  12.   entry Hereza_num(v1: integer);
  13.   entry Gimmea_num(v2: out integer);
  14. end T2;
  15.  
  16. FUNCTION  Add(x, y: integer) RETURN integer IS
  17.   value: integer;
  18.   BEGIN
  19.     value :=  ( x + y );
  20.     RETURN value;
  21.   END Add;
  22.  
  23. Task body T1 is
  24.   iii: integer;
  25.   begin
  26.     for i in 1..10 loop
  27.       PUT("T1  ");
  28.     end loop;
  29.     new_line;
  30.     iii := 42;
  31.     Put("iii = ");
  32.     Put_Line(iii);
  33.     new_line;
  34.     T2.Hereza_num(iii);
  35.   end;
  36.  
  37. Task body T2 is
  38.   jjj: integer;
  39.   begin
  40.     for i in 1..10 loop
  41.       put("T2  ");
  42.     end loop;
  43.     new_line;
  44.     jjj := 0;
  45.     Put("jjj = ");
  46.     Put_Line(jjj);
  47.     Accept Hereza_num(v1: integer) do
  48.       jjj := v1;
  49.     end Hereza_num;
  50.     Put("jjj = ");
  51.     Put_Line(jjj);
  52.     Accept Gimmea_num(v2: out integer) do
  53.       V2 := jjj;
  54.     end Gimmea_num;
  55.   end;
  56.  
  57. BEGIN
  58.   Put("mmm = ");
  59.   Put(mmm);
  60.   New_Line;
  61.   for i in 1..5 Loop
  62.     put("Main");
  63.   end loop;
  64.   T2.Gimmea_num(mmm);
  65.   Put("mmm = ");
  66.   Put(mmm);
  67.   New_Line;
  68.   for i in 1..5 loop
  69.     put("<==>");
  70.   end loop;
  71. END Test_Pgm2;